#!/usr/bin/perl -w

sub total {
    my $temp;
    foreach (@_) {
        $temp += $_;
    }
    $temp;
}

print "The numbers from 1 to 1000 add up to ", total(1..1000), ".\n";
my @fred = qw{ 1 3 5 7 9 };
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n";
print "Enter some numbers on separate lines: ";
my $user_total = total(<STDIN>);
print "The total of those numbers is $user_total.\n";
